The null hypothesis of normal distribution of residuals is not rejected.
The hypothesis of homogeneity of variances (heteroscedasticity) is rejected.
Not all model assumptions are met, so it is NOT valid to draw conclusions from the ANOVA test.
Regardless of the p-value obtained in ANOVA, it is not valid to draw conclusions.
Source Code
---title: "Anova 1 Way - Fixed Model - General Linear Models"format: html: page-layout: custom margin-left: 5% margin-right: 5% theme: cosmo toc: false embed-resources: true standalone: true code-tools: true # Añade un botón global para mostrar/ocultar código code-fold: false # Código plegado por defecto code-summary: "Options" # Texto para el botón de despliegue css: style.css---```{r}#| label: code#| warning: false#| echo: false # Oculta el códigolibrary("Rscience.GeneralLM")database <- mtcarsvar_name_factor <-"cyl"var_name_rv <-"mpg"alpha_value <-0.05my_super_list <- Rscience.GeneralLM::GeneralLM_fix_anova1_RCode(database = database, var_name_factor = var_name_factor, var_name_rv = var_name_rv, alpha_value = alpha_value)```<!-- Inicio TabPanel -->::: {.panel-tabset}<!-- Inicio Tab01 -->### Summary::: {.columns}::: {.column width="48%"}# 1) Anova test```{r}#| warning: false#| echo: falsevector_obj <-c("df_summary_anova")my_df <- my_super_list[[vector_obj]]library(knitr)library(kableExtra)# Mostrar con kable para mejor estéticakable(my_df, format ="html", caption ="") %>% kableExtra::kable_styling(bootstrap_options =c("striped", "hover", "condensed"), full_width =FALSE)``````{r}#| warning: false#| echo: falsevector_obj <-c("plot007_factor")my_super_list[[vector_obj]]```:::::: {.column width="4%"}:::::: {.column width="48%"}# Rscience - AI Report (Auto Report)```{r}#| warning: false#| echo: falsevector_obj <-c("phrase_shapiro_selected", "phrase_bartlett_selected","phrase_requeriments_selected","phrase_anova_selected")my_text <- my_super_list[vector_obj]my_text <-unlist(my_text)# Unir cada elemento en una línea separada# my_text <- paste(my_text, collapse = " ")# Mostrar en Quarto# knitr::asis_output(my_text)````r my_text[1]``r my_text[2]``r my_text[3]``r my_text[4]`:::::::::```{r}#| warning: false#| echo: false# Forzar una línea en blanco final para evitar el warning de readLines()cat("\n")```